inherited FrmLancamentosFinanceiros: TFrmLancamentosFinanceiros
  Left = 340
  Top = 142
  Caption = 'Lan'#231'amentos Financeiros'
  OldCreateOrder = True
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 13
  inherited lblNomeForm: TsLabelFX
    Top = 415
    Height = 41
  end
  object Label7: TLabel [1]
    Left = 300
    Top = 268
    Width = 27
    Height = 13
    Caption = 'Valor:'
  end
  inherited tbrBotoes: TsToolBar
    inherited spbAlterar: TsSpeedButton
      OnClick = spbAlterarClick
    end
    inherited spbExcluir: TsSpeedButton
      OnClick = spbExcluirClick
    end
  end
  object NtbPaginas: TNotebook [3]
    Left = 0
    Top = 65
    Width = 771
    Height = 350
    Align = alClient
    TabOrder = 1
    object TPage
      Left = 0
      Top = 0
      Caption = 'PgPrincipal'
      object sPanel1: TsPanel
        Left = 0
        Top = 0
        Width = 771
        Height = 350
        Align = alClient
        TabOrder = 0
        SkinData.SkinSection = 'PANEL'
        object sLabel1: TsLabel
          Left = 23
          Top = 41
          Width = 24
          Height = 13
          Caption = 'Tipo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel2: TsLabel
          Left = 23
          Top = 65
          Width = 44
          Height = 13
          Caption = 'Historico:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel3: TsLabel
          Left = 23
          Top = 89
          Width = 31
          Height = 13
          Caption = 'Conta:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel4: TsLabel
          Left = 23
          Top = 113
          Width = 56
          Height = 13
          Caption = 'Favorecido:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel5: TsLabel
          Left = 23
          Top = 137
          Width = 54
          Height = 13
          Caption = 'Valor Total:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel6: TsLabel
          Left = 186
          Top = 137
          Width = 73
          Height = 13
          Caption = 'Valor Quita'#231#227'o:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel7: TsLabel
          Left = 356
          Top = 137
          Width = 59
          Height = 13
          Caption = 'Saldo Titulo:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel8: TsLabel
          Left = 508
          Top = 113
          Width = 75
          Height = 13
          Caption = 'Nr. Documento:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel9: TsLabel
          Left = 508
          Top = 89
          Width = 51
          Height = 13
          Caption = 'Data Vcto:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel11: TsLabel
          Left = 23
          Top = 161
          Width = 73
          Height = 13
          Caption = 'Qtde. Parcelas:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object sLabel12: TsLabel
          Left = 23
          Top = 15
          Width = 59
          Height = 13
          Caption = 'Nr. Registro:'
          ParentFont = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = 2171169
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
        end
        object EdtHistorico: TsEdit
          Left = 96
          Top = 61
          Width = 609
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 1
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object CedCodigoConta: TsCurrencyEdit
          Tag = 1000
          Left = 96
          Top = 85
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 2
          OnExit = CedCodigoContaExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DisplayFormat = '#######0'
        end
        object CedCodigoEmitente: TsCurrencyEdit
          Tag = 1000
          Left = 96
          Top = 109
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 5
          OnExit = CedCodigoEmitenteExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DisplayFormat = '#######0'
        end
        object CedValor: TsCurrencyEdit
          Left = 96
          Top = 133
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 8
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
        end
        object DblEmitente: TsDBLookupComboBox
          Left = 184
          Top = 109
          Width = 313
          Height = 21
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_EMITENTE'
          ListField = 'RAZAO_SOCIAL'
          ListSource = DtsFavorecido
          ParentFont = False
          TabOrder = 6
          OnCloseUp = DblEmitenteCloseUp
          OnExit = DblEmitenteExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object DblPlanoContas: TsDBLookupComboBox
          Left = 184
          Top = 85
          Width = 313
          Height = 21
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          KeyField = 'CODIGO_CONTA'
          ListField = 'DESCRICAO_CONTA'
          ListSource = DtsPlanoContas
          ParentFont = False
          TabOrder = 3
          OnCloseUp = DblPlanoContasCloseUp
          OnExit = DblPlanoContasExit
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
        end
        object CedValorQuitacao: TsCurrencyEdit
          Left = 262
          Top = 133
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 9
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
        end
        object CedSaldoTitulo: TsCurrencyEdit
          Left = 418
          Top = 133
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 10
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
        end
        object DbgLancamentosFinanceiros: TRxDBGrid
          Left = 1
          Top = 204
          Width = 769
          Height = 145
          Align = alBottom
          DataSource = DtsRxMovItens
          TabOrder = 11
          TitleFont.Charset = DEFAULT_CHARSET
          TitleFont.Color = clWindowText
          TitleFont.Height = -11
          TitleFont.Name = 'MS Sans Serif'
          TitleFont.Style = []
          Columns = <
            item
              Expanded = False
              FieldName = 'NR_PARCELA'
              Title.Caption = 'Nr. Parcela'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'DT_VENCIMENTO'
              Title.Caption = 'Dt. Vcto'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_PARCELA'
              Title.Caption = 'Valor Parcela'
              Width = 80
              Visible = True
            end
            item
              Color = clYellow
              Expanded = False
              FieldName = 'PC_DESCONTO'
              Title.Caption = '% Descontro'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_DESCONTO'
              Title.Caption = 'Valor Desconto'
              Width = 80
              Visible = True
            end
            item
              Color = clYellow
              Expanded = False
              FieldName = 'PC_ACRESCIMO'
              Title.Caption = '% Acrescimo'
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'VALOR_ACRESCIMO'
              Title.Caption = 'Valor Acrescimo'
              Visible = True
            end
            item
              Color = clAqua
              Expanded = False
              FieldName = 'VALOR_TOTAL'
              Title.Caption = 'Valor Total'
              Width = 80
              Visible = True
            end
            item
              Expanded = False
              FieldName = 'QUITADO_SN'
              Title.Caption = 'Quitado S/N'
              Visible = True
            end>
        end
        object edtNrDocumento: TsEdit
          Left = 584
          Top = 109
          Width = 121
          Height = 21
          CharCase = ecUpperCase
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 7
          SkinData.SkinSection = 'EDIT'
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
        end
        object DedDtVencimento: TsDateEdit
          Left = 584
          Top = 85
          Width = 121
          Height = 21
          AutoSize = False
          Color = clWhite
          EditMask = '!99/99/9999;1; '
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          MaxLength = 10
          ParentFont = False
          TabOrder = 4
          Text = '  /  /    '
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
        end
        object CboTipoLancamento: TsComboBox
          Tag = 1000
          Left = 96
          Top = 37
          Width = 129
          Height = 21
          Alignment = taLeftJustify
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'COMBOBOX'
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ItemHeight = 13
          ItemIndex = -1
          ParentFont = False
          TabOrder = 0
          Items.Strings = (
            'PAGAR'
            'RECEBER')
        end
        object CedQtParcelas: TsCurrencyEdit
          Left = 96
          Top = 157
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 12
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DisplayFormat = '#######0'
        end
        object btnGerarParcelas: TsBitBtn
          Left = 180
          Top = 155
          Width = 109
          Height = 25
          Caption = 'Gerar Parcelas'
          TabOrder = 13
          OnClick = btnGerarParcelasClick
          SkinData.SkinSection = 'BUTTON'
        end
        object CedNrReg: TsCurrencyEdit
          Left = 96
          Top = 13
          Width = 80
          Height = 21
          AutoSize = False
          Color = clWhite
          Enabled = False
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clBlack
          Font.Height = -11
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          TabOrder = 14
          BoundLabel.Indent = 0
          BoundLabel.Font.Charset = DEFAULT_CHARSET
          BoundLabel.Font.Color = clWindowText
          BoundLabel.Font.Height = -11
          BoundLabel.Font.Name = 'MS Sans Serif'
          BoundLabel.Font.Style = []
          BoundLabel.Layout = sclLeft
          BoundLabel.MaxWidth = 0
          BoundLabel.UseSkinColor = True
          SkinData.SkinSection = 'EDIT'
          GlyphMode.Blend = 0
          GlyphMode.Grayed = False
          DisplayFormat = '############0'
        end
      end
    end
    object TPage
      Left = 0
      Top = 0
      Caption = 'PgConsulta'
      object DbgConsultar: TRxDBGrid
        Left = 0
        Top = 0
        Width = 771
        Height = 346
        Align = alClient
        DataSource = DtsConsultar
        Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDblClick = DbgConsultarDblClick
        Columns = <
          item
            Expanded = False
            FieldName = 'NR_REG'
            Title.Caption = 'Nr. Reg.'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'HISTORICO'
            Title.Caption = 'Descricao'
            Width = 400
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CODIGO_CONTA'
            Title.Caption = 'Cod. Conta'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DESCRICAO_CONTA'
            Title.Caption = 'Descricao Conta'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CODIGO_EMITENTE'
            Title.Caption = 'Cod. Emitente'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'RAZAO_SOCIAL'
            Title.Caption = 'Razao Social'
            Width = 300
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NR_DOCUMENTO'
            Title.Caption = 'Nr. Documento'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'DT_VENCIMENTO'
            Title.Caption = 'Dt. Vcto'
            Width = 90
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR'
            Title.Caption = 'Valor Total'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'NRO_CONTRATO'
            Title.Caption = 'Nr. Contrato'
            Width = 80
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'VALOR_QUITACAO'
            Title.Caption = 'Valor Quita'#231#227'o'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'SALDO_TITULO'
            Title.Caption = 'Saldo Titulo'
            Width = 100
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'TIPO_LANCAMENTO'
            Title.Caption = 'Tipo Lan'#231'amento'
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'CODIGO_TIPO_LANCAMENTO'
            Title.Caption = 'Cd. Tipo Lan'#231'amento'
            Visible = True
          end>
      end
    end
  end
  inherited sSkinProvider1: TsSkinProvider
    Left = 16
    Top = 416
  end
  object QryIncluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'HISTORICO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4000
        Value = Null
      end
      item
        Name = 'CODIGO_CONTA'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'NR_DOCUMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'DT_VENCIMENTO'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'VALOR'
        Attributes = [paSigned]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_QUITACAO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'SALDO_TITULO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'TIPO_LANCAMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_LANCAMENTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO'
      '  LANCAMENTO_FINANCEIRO'
      '('
      '  HISTORICO,'
      '  CODIGO_CONTA,'
      '  CODIGO_EMITENTE,'
      '  NR_DOCUMENTO,'
      '  DT_VENCIMENTO,'
      '  VALOR,'
      '  VALOR_QUITACAO,'
      '  SALDO_TITULO,'
      '  TIPO_LANCAMENTO,'
      '  CODIGO_TIPO_LANCAMENTO'
      ')'
      'VALUES ('
      '  :HISTORICO,'
      '  :CODIGO_CONTA,'
      '  :CODIGO_EMITENTE,'
      '  :NR_DOCUMENTO,'
      '  :DT_VENCIMENTO,'
      '  :VALOR,'
      '  :VALOR_QUITACAO,'
      '  :SALDO_TITULO,'
      '  :TIPO_LANCAMENTO,'
      '  :CODIGO_TIPO_LANCAMENTO'
      ''
      ');')
    Left = 56
    Top = 417
  end
  object QryExcluir: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NR_REG'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'DELETE LANCAMENTO_FINANCEIRO'
      'WHERE NR_REG = :NR_REG;')
    Left = 94
    Top = 417
  end
  object QryAlterar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'HISTORICO'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 4000
        Value = Null
      end
      item
        Name = 'CODIGO_CONTA'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'CODIGO_EMITENTE'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'NR_DOCUMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 300
        Value = Null
      end
      item
        Name = 'DT_VENCIMENTO'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'VALOR'
        Attributes = [paSigned]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_QUITACAO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'SALDO_TITULO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'TIPO_LANCAMENTO'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end
      item
        Name = 'CODIGO_TIPO_LANCAMENTO'
        Attributes = [paSigned, paNullable]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'NR_REG'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'UPDATE'
      '  LANCAMENTO_FINANCEIRO'
      'SET '
      '  HISTORICO = :HISTORICO,'
      '  CODIGO_CONTA = :CODIGO_CONTA,'
      '  CODIGO_EMITENTE = :CODIGO_EMITENTE,'
      '  NR_DOCUMENTO = :NR_DOCUMENTO,'
      '  DT_VENCIMENTO = :DT_VENCIMENTO,'
      '  VALOR = :VALOR,'
      '  VALOR_QUITACAO = :VALOR_QUITACAO,'
      '  SALDO_TITULO = :SALDO_TITULO,'
      '  TIPO_LANCAMENTO = :TIPO_LANCAMENTO,'
      '  CODIGO_TIPO_LANCAMENTO = :CODIGO_TIPO_LANCAMENTO'
      ''
      'WHERE '
      '  NR_REG = :NR_REG;')
    Left = 131
    Top = 417
  end
  object QryConsultar: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    SQL.Strings = (
      'SELECT A.NR_REG, A.HISTORICO, '
      '       A.CODIGO_CONTA,'
      '       B.DESCRICAO_CONTA,'
      '       A.CODIGO_EMITENTE,'
      '       C.RAZAO_SOCIAL,'
      '       A.NR_DOCUMENTO,'
      '       A.DT_VENCIMENTO,'
      '       A.VALOR,'
      '       A.NRO_CONTRATO,'
      '       A.VALOR_QUITACAO,'
      '       A.SALDO_TITULO,'
      '       A.TIPO_LANCAMENTO,'
      '       A.CODIGO_TIPO_LANCAMENTO'
      'FROM LANCAMENTO_FINANCEIRO A, '
      '     PLANO_CONTAS B, '
      '     EMITENTE C'
      'WHERE A.CODIGO_CONTA = B.CODIGO_CONTA'
      '  AND A.CODIGO_EMITENTE = C.CODIGO_EMITENTE'
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      '')
    Left = 168
    Top = 417
    object QryConsultarNR_REG: TAutoIncField
      FieldName = 'NR_REG'
      ReadOnly = True
    end
    object QryConsultarHISTORICO: TStringField
      FieldName = 'HISTORICO'
      Size = 4000
    end
    object QryConsultarCODIGO_CONTA: TIntegerField
      FieldName = 'CODIGO_CONTA'
    end
    object QryConsultarDESCRICAO_CONTA: TStringField
      FieldName = 'DESCRICAO_CONTA'
      Size = 100
    end
    object QryConsultarCODIGO_EMITENTE: TIntegerField
      FieldName = 'CODIGO_EMITENTE'
    end
    object QryConsultarRAZAO_SOCIAL: TStringField
      FieldName = 'RAZAO_SOCIAL'
      Size = 300
    end
    object QryConsultarNR_DOCUMENTO: TStringField
      FieldName = 'NR_DOCUMENTO'
      Size = 300
    end
    object QryConsultarDT_VENCIMENTO: TDateTimeField
      FieldName = 'DT_VENCIMENTO'
    end
    object QryConsultarVALOR: TFloatField
      FieldName = 'VALOR'
    end
    object QryConsultarNRO_CONTRATO: TIntegerField
      FieldName = 'NRO_CONTRATO'
    end
    object QryConsultarVALOR_QUITACAO: TFloatField
      FieldName = 'VALOR_QUITACAO'
    end
    object QryConsultarSALDO_TITULO: TFloatField
      FieldName = 'SALDO_TITULO'
    end
    object QryConsultarTIPO_LANCAMENTO: TStringField
      FieldName = 'TIPO_LANCAMENTO'
      Size = 10
    end
    object QryConsultarCODIGO_TIPO_LANCAMENTO: TIntegerField
      FieldName = 'CODIGO_TIPO_LANCAMENTO'
    end
  end
  object QryPlanoContas: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'TIPO_CONTA'
        Attributes = [paNullable]
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 10
        Value = Null
      end>
    SQL.Strings = (
      'SELECT CODIGO_CONTA, DESCRICAO_CONTA FROM PLANO_CONTAS'
      ''
      'WHERE TIPO_CONTA = :TIPO_CONTA'
      ''
      'ORDER BY DESCRICAO_CONTA;'
      ' ')
    Left = 256
    Top = 145
  end
  object QryFavorecido: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT A.CODIGO_EMITENTE, A.RAZAO_SOCIAL FROM EMITENTE A'
      'WHERE A.ATIVO_SN = '#39'S'#39
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      ''
      'ORDER BY A.RAZAO_SOCIAL'
      ' ')
    Left = 298
    Top = 169
  end
  object DtsPlanoContas: TDataSource
    DataSet = QryPlanoContas
    Left = 227
    Top = 145
  end
  object DtsFavorecido: TDataSource
    DataSet = QryFavorecido
    Left = 328
    Top = 169
  end
  object DtsRxMovItens: TDataSource
    DataSet = RxMovItens
    Left = 272
    Top = 305
  end
  object QryIncluirMovitens: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <
      item
        Name = 'NR_REG_LANCAMENTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'NR_PARCELA'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end
      item
        Name = 'VALOR_PARCELA'
        Attributes = [paSigned]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'DT_VENCIMENTO'
        DataType = ftDateTime
        NumericScale = 3
        Precision = 23
        Size = 16
        Value = Null
      end
      item
        Name = 'PC_DESCONTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_DESCONTO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'PC_ACRESCIMO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_ACRESCIMO'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'VALOR_TOTAL'
        Attributes = [paSigned, paNullable]
        DataType = ftFloat
        NumericScale = 255
        Precision = 15
        Size = 8
        Value = Null
      end
      item
        Name = 'QUITADO_SN'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 1
        Value = Null
      end>
    SQL.Strings = (
      'INSERT INTO'
      '  LANCAMENTO_FINANCEIRO_ITEM'
      '('
      '  NR_REG_LANCAMENTO,'
      '  NR_PARCELA,'
      '  VALOR_PARCELA,'
      '  DT_VENCIMENTO,'
      '  PC_DESCONTO,'
      '  VALOR_DESCONTO,'
      '  PC_ACRESCIMO,'
      '  VALOR_ACRESCIMO,'
      '  VALOR_TOTAL,'
      '  QUITADO_SN'
      ')'
      'VALUES ('
      '  :NR_REG_LANCAMENTO,'
      '  :NR_PARCELA,'
      '  :VALOR_PARCELA,'
      '  :DT_VENCIMENTO ,'
      '  :PC_DESCONTO,'
      '  :VALOR_DESCONTO,'
      '  :PC_ACRESCIMO,'
      '  :VALOR_ACRESCIMO,'
      '  :VALOR_TOTAL,'
      '  :QUITADO_SN'
      ''
      ');')
    Left = 296
    Top = 225
  end
  object RxMovItens: TRxMemoryData
    FieldDefs = <>
    OnCalcFields = RxMovItensCalcFields
    Left = 304
    Top = 305
    object RxMovItensNR_PARCELA: TIntegerField
      FieldName = 'NR_PARCELA'
    end
    object RxMovItensDT_VENCIMENTO: TDateTimeField
      FieldName = 'DT_VENCIMENTO'
    end
    object RxMovItensVALOR_PARCELA: TFloatField
      FieldName = 'VALOR_PARCELA'
      DisplayFormat = '###,###,##0.00;-###,###,##0.00;0'
    end
    object RxMovItensPC_DESCONTO: TFloatField
      FieldName = 'PC_DESCONTO'
      DisplayFormat = '###,###,##0.00%;-###,###,##0.00%;0'
    end
    object RxMovItensVALOR_DESCONTO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'VALOR_DESCONTO'
      DisplayFormat = '###,###,##0.00;-###,###,##0.00;0'
      Calculated = True
    end
    object RxMovItensPC_ACRESCIMO: TFloatField
      FieldName = 'PC_ACRESCIMO'
      DisplayFormat = '###,###,##0.00%;-###,###,##0.00%;0'
    end
    object RxMovItensVALOR_ACRESCIMO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'VALOR_ACRESCIMO'
      DisplayFormat = '###,###,##0.00;-###,###,##0.00;0'
      Calculated = True
    end
    object RxMovItensVALOR_TOTAL: TFloatField
      FieldKind = fkCalculated
      FieldName = 'VALOR_TOTAL'
      DisplayFormat = '###,###,##0.00;-###,###,##0.00;0'
      Calculated = True
    end
    object RxMovItensQUITADO_SN: TStringField
      FieldName = 'QUITADO_SN'
      Size = 1
    end
  end
  object QryLctoFinanItem: TADOQuery
    Connection = frmPrincipal.cnn
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'NR_REG_LANCAMENTO'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = Null
      end>
    SQL.Strings = (
      'SELECT A.NR_PARCELA,'
      '       A.DT_VENCIMENTO,'
      '       A.VALOR_PARCELA,'
      '       A.PC_DESCONTO,'
      '       A.VALOR_DESCONTO,'
      '       A.PC_ACRESCIMO,'
      '       A.VALOR_ACRESCIMO,'
      '       A.VALOR_TOTAL,'
      '       A.QUITADO_SN'
      '  FROM LANCAMENTO_FINANCEIRO_ITEM A'
      ' WHERE A.NR_REG_LANCAMENTO = :NR_REG_LANCAMENTO')
    Left = 352
    Top = 305
    object QryLctoFinanItemNR_PARCELA: TIntegerField
      FieldName = 'NR_PARCELA'
    end
    object QryLctoFinanItemDT_VENCIMENTO: TDateTimeField
      FieldName = 'DT_VENCIMENTO'
    end
    object QryLctoFinanItemVALOR_PARCELA: TFloatField
      FieldName = 'VALOR_PARCELA'
    end
    object QryLctoFinanItemPC_DESCONTO: TFloatField
      FieldName = 'PC_DESCONTO'
    end
    object QryLctoFinanItemVALOR_DESCONTO: TFloatField
      FieldName = 'VALOR_DESCONTO'
    end
    object QryLctoFinanItemPC_ACRESCIMO: TFloatField
      FieldName = 'PC_ACRESCIMO'
    end
    object QryLctoFinanItemVALOR_ACRESCIMO: TFloatField
      FieldName = 'VALOR_ACRESCIMO'
    end
    object QryLctoFinanItemVALOR_TOTAL: TFloatField
      FieldName = 'VALOR_TOTAL'
    end
    object QryLctoFinanItemQUITADO_SN: TStringField
      FieldName = 'QUITADO_SN'
      Size = 1
    end
  end
  object qryGeral: TADOQuery
    Connection = frmPrincipal.cnn
    Parameters = <>
    Left = 632
    Top = 81
  end
  object DtsConsultar: TDataSource
    DataSet = QryConsultar
    Left = 200
    Top = 416
  end
end
